home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / tlxjwpc5.zip / TIMEX.SLT < prev    next >
Text File  |  1990-09-21  |  2KB  |  42 lines
  1. //╔═════════════════════════════════════════════════════════════════════╗
  2. //║ RBBS 17.3A         JW-PC Consulting DataFlex.HST      (608)837-1923 ║
  3. //║ Dual Std HST/V.32/MNP5/V.42     RBBSnet 8:972/2     FIDOnet 1:121/8 ║
  4. //╚═════════════════════════════════════════════════════════════════════╝
  5. //File created on 12-28-1989 08:06:15
  6. //
  7. // Original by: Randy Risher  Additional prompting and screen handling
  8. // by: Jim Wargula
  9. //
  10. // Timed execution script for Telix 3.1x.  Calls another script at spec. time.
  11. // Both Time and Called Script Filename are prompted for.  jim wargula
  12. main()
  13. {
  14.     str s[16];
  15.     str r[16];
  16.     str n[8];
  17.     _time_format=1;                     //24hr format
  18.     clear_scr();
  19.     pstraxy("Enter 24 hr start time XX:XX:XX and Press Enter",15,5,23);
  20.     getsxy(r,8,15,7,23);
  21.     pstraxy("Enter script filename to execute and Press Enter",15,10,23);
  22.     getsxy(n,8,15,12,23);
  23.     clear_scr();
  24.     printsc("Script start-up time is ");
  25.     prints(r);
  26.     printsc("Script name to start is ");
  27.     prints(n);
  28.     prints();
  29.     prints("Press any key to begin...");
  30.     while(1)                            //Loop until time
  31.     {
  32.         time(curtime(), s);             // Tracks Time
  33.         if (s == r)
  34.         {
  35.             break;                      //Break out when times equal
  36.         }
  37.     }                                   //Loop until time
  38.     printsc("Executed script at ");
  39.     prints(s);
  40.     calld(n);                           //Script name to execute
  41. }
  42.